home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_152_Menu.Font < prev    next >
Encoding:
Text File  |  1990-03-23  |  982 b   |  64 lines
  1. { %filename% }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. Unit %UnitName%;
  5. Interface
  6.  
  7. Uses
  8. %if lang = MPW%
  9.     {$Load ToolBox.dump}
  10.         MemTypes,
  11.         QuickDraw,
  12.         OSIntf,
  13.         ToolIntf,
  14.         PackIntf,
  15.     {$Load}
  16.  
  17. %end if%
  18. %if lang = Think%
  19. {$ifc undefined Think_Pascal}
  20.     ListManager,
  21. {$endc}
  22. %end if%
  23.     %for each menuItem gen usesDialog%
  24.     Globals,
  25.     Miscellany,
  26.     ResourceDefs;
  27.  
  28. {----------}
  29. Procedure Init%MenuName%M;
  30. Procedure Choose%MenuName% (itemNr:    integer);
  31.  
  32. {----------}
  33. Implementation
  34.  
  35. var
  36.     nrFonts:        integer;
  37.  
  38. %if lang = MPW%
  39. {$D+}
  40. {$R+}
  41. {$OV+}
  42. {$S %unitname%}
  43.  
  44. %end if%
  45. {----------}
  46. Procedure Init%MenuName%M;
  47. Begin
  48.     nrFonts := countMItems (FontMenu);
  49. End; {Init%MenuName%M}
  50.  
  51. %for each menuitem gen doItem%
  52. {----------}
  53. Procedure Choose%MenuName% {(itemNr:    integer)};
  54. var
  55.     fontName:        Str255;
  56.     fontNum:        integer;
  57. Begin
  58.     DoRadioMenu (%menuName%Menu, 1, nrFonts, itemNr);
  59.     GetItem (%menuName%Menu, itemNr, fontName);
  60.     GetFNum (%menuName%Name, fontNum);
  61. End; {Choose%MenuName%}
  62.  
  63. End. {%UnitName%}
  64.